home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / printing.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  988 b   |  51 lines  |  [TEXT/CCL2]
  1. (defrecord TPrStl 
  2.    (wDev :signed-integer)
  3.    (iPageV :signed-integer)
  4.    (iPageH :signed-integer)
  5.    (bPort :signed-byte)
  6.    (filler1 :signed-byte) ; for alignment
  7.    (filler2 :signed-byte) ; for the byte itself
  8.    (feed :unsigned-byte)
  9.    )
  10.  
  11. (defrecord TPrXInfo 
  12.    (iRowBytes :signed-integer)
  13.    (iBandV :signed-integer)
  14.    (iBandH :signed-integer)
  15.    (iDevBytes :signed-integer)
  16.    (iBands :signed-integer)
  17.    (bPatScale :signed-byte)
  18.    (bUlThick :signed-byte)
  19.    (bUlOffset :signed-byte)
  20.    (bUlShadow :signed-byte)
  21.  
  22.    (filler1 :signed-byte)
  23.    (scan :unsigned-byte)
  24.    (bXInfoX :signed-byte)
  25.    )
  26.  
  27. (defrecord (TWord :handle) 
  28.   (:variant 
  29.    
  30.    ((c1 :character)
  31.     (c0 :character)
  32.     )
  33.    
  34.    ((b1 :signed-byte)
  35.     (b0 :signed-byte)
  36.     )
  37.    
  38.    ((usb1 :unsigned-byte)
  39.     (usb0 :unsigned-byte)
  40.     )
  41.    
  42.    ((n3 :unsigned-byte)
  43.     (n2 :unsigned-byte)
  44.     (n1 :unsigned-byte)
  45.     (n0 :unsigned-byte)
  46.     )
  47.    
  48.    ((flags :unsigned-integer))
  49.    ((i0 :signed-integer))
  50.    ))
  51.